ceeeeecin 


EEE HHH NNN NNN GGGGGGGGGGGG 
EEE HHH NNN NNN GGGGGGGGGGGG 
EEE XXX XXX CCC HHH HHH NNN NNN 
EEE XXX XXX CCC HHH HHH NNN NNN GGG 
EEE XXX XXX CCC HHH HHH NNN NN GGG - 
EEE XXX XXX Lcc HHH HHH NNNNNN NNN GGG 
EEE XXX = XXX CCC HHH HHH NNNNNN NNN GGG mM 
EEE XXX = XXX CCC HHH HHH NNN NNN GGG a] 
EEEEEEEEEEEE Xx ccc HHHHHHHHHHHHHHH NNN NNN NNN GGG a] 
EEEEESEEEEEE XXX ccc HHHHHHHHHHHHHHH_ NNN NNN NNN GGG mM 
EEEECEEEEEEE XXX ccc HHHHHHHHHHHHHHH NNN NNN NNN GGG 4 
EEE XXX XXX ccc HHH HHH NNN NNNNNN GGG  GGGGGGGGG a] 
EEE XXX = XXX ccc HH HHH NNN NNNNNN GGG G6GGGGGGGG a 
EEE XXX = XXX CCC HHH HHH NNN NNNNNN GGG 6GGGGGGGGG " 
EEE XXX XXX CCC HHH HHH NNN NNN GGG GGG 0 
EEE XXX XXX CCC HHH HHH NNN NNN 6GG GGG 0 
EEE XXX XXX CCC Hi HHH NNN NNN GGG GGG 0 
EEE NNN GGGGGGGGS P 
FEE NNN GGGGGGG4G P| 
EEE NNN GGGGGGGGG . 
P 
P) 


| 
HHH NNN NNN _ GGGGGGGGGGGG | 
GGG 


P| 
P| 
P 
P 
P 
Pp 
P 
P 
P 
R 
R 
R 
R 
R 
R 
R 
$s 
Ss 
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oe exch$library (IDENT = ‘V04-000') = TITLE ‘Facility-wide Library module’ 
i 


VORP ReA ASEH RAAHAAAAHEAAEAAAREKAAAREEKKAEAKeKeAeeeeKeeeeetereretereeeeeeeeees 


:¢ CORPORATION. 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR > uta OF ITS 
'@ SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL 


‘@ a 
‘e COPYRIGHT (c) 1978, 1980, 1982, 1984 B ® 
'‘e DIGITAL EQUIPMENT EORPORATION, MAYNARD. MASSACHUSETTS. * 
:* ALL RIGHTS RESERVED. * 
‘@ ® 
‘@ THIS SOFTWARE IS ui UNDER A LICENSE AND MAY BE USED AND soraee * 
'w ONLY IN ACCORDANCE WITH THE an cee veh sot toa SE AND WITH THE * 
'‘® INCLUSION OF THE ABOVE ptt NOTI THIS TWARE OR ANY OTHER * 
'‘e COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE OMADE AVAILABLE TO ANY * 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
t# TRANSFERRED. * 
‘@ ® 
\e THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
\e SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

* 

t 

t 

* 

& 

Y 


VaR eee RSS AAAAA AEE AAAEA AERA AAERAAEAAARAEAAATAAAAAARATEEA AAA RAE ARETE 


‘ee 


Add NOREMOTE, NOTSAMEDEV and RT11_DIRSIZE message cases. 


FACILITY: EXCHANGE - Foreign volume interchange facility 

ABSTRACT: BLISS Library for EXCHANGE facility 

ENVIRONMENT: VAX/VMS User mode 

AUTHOR : Cw Hobbs . CREATION DATE: 1-July-1982 

MODIFIED BY: 

v0O3-002 CwWH3002 CW Hobbs 12-Apr-1984 
i 

£ 
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; Include files: 


: LIBRARY files: 
LIBRARY 
*SYSSLIBRARY:LIB' 


H REQUIRE files: 


REQUIRE ; 
LIBS:EXCDEFS 


; Macros: 
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! VMS operating system Library 


! include the SDL definitions 


: Declare some macros as shorthand for the psect names 


MACRO 
$global_rw = 


PSECT GLOBAL 


= exch$rw_global (ADDRESSING_MODE (LONG_RELATIVE)); GLOBAL % 


EX( 
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; Declare some common data structure initialization macros 


MACRO 
: Define shorthand for a single initialized dynamic string desc 


Sdyn_str_desc ! Static declaration 


= 

BLOCK Cdsc$k_d_bln,BYTE) 

PRESET (Cdsc$b_class = dsc$k_class_d, 
dsc$b_dtype = gscSk_dtype_t. 
dsc$w_length) = 0, 
dsc$a_pointer] = 0 ) 


: 
$Sdyn_str_desc_init (desci) ! Run-time initialization 
= 
BEGIN 
BIND 
desc = (desci) : VECTOR C2, LONG], 
tagt = exch$gq_dyn_str_template : VECTOR (2, LONG]; 
desc f : = .tmpl (0); 
desc (1) = .tmpl (1); 
END 


Define macro for a single initialized static string desc. 
$stat_str_desc (L, A) ! Static declaration 


BLOCK Cdsc$k_s_bln, BYTE) 
PRESET ( dsc$b_class, 


dsc$w_length) 
dsc$a_pointer] 


$stat_str_desc_init (desci, L, A) ! Run-time initialization 
= 
BEGIN 
BIND 
L C, BYTE); 
k. lass_s; 


desc = (desci) : OCK 
oeeSknStypent 
sc e_t; 
(o: ype. 
(A); 


B 
desc (dsc$b_class 2 
desc Ldsc$b_dtype = 
desc [dsc$w_length]_ = 
gese dsc$a_pointer] = 


$str_desc_set (desci, L, A) ! Copy new Length and pointer fields (both static and dynamic) 
BEGIN 
BIND 
desc = (desci) : BL 
= 


desc (dsc$w_length] 
gese dsc$a_pointer] 


Ock C, BYTE); 
(L); 
(A) 


H 
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%, 
} And shorthand for just a descriptor declaration 
$desc_block 

= 

pote Cdsc$k_s_bln, BYTE] 


Short form for byte vector reference 
$ref_bvector 

= 

ger $bvector 


Short form for byte block reference 
$Sref_bblock 
REF $bblock 
STRUCTURE 
$bvector C1; NJ = 
(Sbvector+1)<0,8,0>; 


'¢ 

! SIGNAL_STOP a condition assuming no return. LIBSexch_signal_STOP is not 
! supposed to return, but BLISS doesn't know this, so we block further 

i flow here. This will generate better code for us. 


MACRO 
Sexch_signal_stop () 
= 


BE 
LINKAGE 
LNK = CALL : PRESERVE (0,1,2,3,.4,5.6,7,8,9,10,11); 
EXTERNAL ROUTINE 
ati : ADDRESSING_MODE (GENERAL) LNK NOVALUE; 


LIBSSTOP (ZREMAINING) ; 
RETURN (.RO); 


EN 
q; 
'¢ 
SIGNAL a condition and return. 


CRO 
Sexch_signal_return (code) 
= 


EX! 
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BEGIN 
L a 
temp; 
= og od } Ree A. overe _ouleteie calls, e 
ei¢ L (temp, ine al of the error 
LENGTH GTR ETHER. MahEMATNtNe “i 
RETURN .temp 


'¢ 
_SIGNAL @ condition and continue. 


MACRO 
Sexch_signal (code) 


SIGNAL ( (code) erform the actual gigret of the error 
ZIF ZLENGTH GTR i RTAEN »SREMAINING ZF I 
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‘¢ 
Initialize a control block type and size fields. We do not depend on them being in the standard positions 
mACR 
*Sblock_init (addr, prefix) 
= 
Be Sin 
BIN 


= (addr) recs C, BYTE); 
att CAME (prefix, w_size')) = £NAME Cexchblk$s_ ‘ prefix); 
addr2 CZNAME (prefix,'$Sb_type')] = ZNAME (‘exchbLk$k_', prefix); 
'¢ 
Check a control block type and size fields. Note that we depend on them being in the standard positions 


MACRO 
Sblock_check (level, addr, prefix, error_code) 
= 
ZIF switch variant GEQ (level) 
ZTHEN 
BEGIN 
EXTERNAL ROUTINE 
exch$util_block_check : jsb_rOrir2 NOVALUE; 


exch$util_block_ check ( (addr) (error code), 
“(ZNAME ('exchb(k$s_'. prefix) * 16 OR ZNAME ("exchbLk$k_",prefix))); 


END 
xF I 


CRO 
Sblock_check_if_nonzero (level, addr, prefix, error_code) 
= 
ZIF switch variant GEQ (level) 
ZTHEN 
BEGIN 
BIN 


addr2 = (addr) : BLOCK C, BYTE]; 
= adare NEQ 0 


"sbtock check ((level), (addr), prefix, (error_code)); 
ZF I 
4 


'¢ 
‘ Check for a logic error. If the expression is not true, then we have a problem. 
MACRO 
S$logic_check (level, condition, error code) 
= 


' See if a compile time check is possible 


EX! 


| 
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K 
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IF ZCTCE ((condition)) 
ZTHEN 
! The condition is a compile-time expression. There is one special case, when the 
: condition is the string “(false)”. This is used as an unconditional logic abort. 
If we have ‘(false)"’, then do a naked SIGNAL_STOP 
ZIF XZIDENTICAL (condition, (false)) 
XTHE 


N 
SIGNAL_STOP (exch$_badlogic, 1, (error_code)) 


! The condition is a normal test. If it is true, print a message that the condition 
was verified during compilation. If false, generate a serious error. 
ZELSE 
aif Sener etene 
SPRINT (‘assumption ‘,error_code,' verified during compilation’) 


ZELSE 
ZERROR (‘assumption ‘,error_code,' is not true’) 


2FI 


! The condition is not a compile-time constant. If the current variant calls for it, 

generate run-time code to test the assumption. 

ZELSE 
ZIFF switch variant GEQ (level) 
XTHEN 


BEGIN 
IF NOT (condition) 


SIGNAL_STOP (exch$_badlogic, 1, (error_code)); 
xFI 

ZF I 

| 
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: macros are defined in EXCLIB to change the severity code. These are Swarning_stat, Ssuccess_stat, 


Serror_stat, Sinfo_stat and Ssevere_stat. A typical use would be: 
status = Lib$foo (bar); 
IF tatus 


N 

BEGIN 

Swarning_stat (status); ! Convert unknown severity to warning 
SIGNAL (.status); 

RETURN .status; 

END; 


These macros modify the status variable and return the value of the modified status. 
For those situations where it is inappropriate to modify the code, forms of the macro are available which 


modify copies of the status code. These macro names have ‘'_copy 


appended to the modify form of the macro 
name. A couple of examples of their use are: 


status = Lib$foo (bar); status = Lib$foo (bar); 

IF NOT .status IF NOT .status 

THEN THEN 
BEGIN BEGIN 
new stat = Swarning_status_copy (.status); SIGNAL ($error_status_copy (exch$_badfoo), 0, .status); 
SIGNAL (.new_stat); pe Lune (exch$_Badfoo); 


7A (.status); 


Note that the "'_copy’’ forms have value arguments, the regular forms have address arguments. 


Convert status codes to specific status values. 


MACRO 
Sinhibit_msg (status) 


= 
BEGIN 
BIND 

status2 = status : + C4, BYTE); k 
statuse Csts$v_inhib_msg] = 1; ! Inhibit SEXIT signalling 
getotued ! Value of block is new code 
z, 


e 

Most messages are defined as warnings so that we can signal without changing flow of execution. Several 

Sinhibit_msg_copy (status) 
= 


stat se : BLOCK C4, BYTE); 
statuss f -0,32,0) = status; ! Copy the whole code 
status [sts$v_inhib_msg) = 1; i Inhibit SEXIT signalling 
getotuad ' Value of block is new code 


M 
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Swarning_stat (status) 
= 
BEGIN 
BIND 
status? = status : BLOCK (4, BYTE]; 
status k 


sts$v_severity] = sts$ warning: orce status to warning 
getatuss Value Py block is new code 


$Swarning_stat_copy (status) 
= 


LOCA 
st 0 38t 85" C4, BYTE); 
statusg. tor = status; ! Copy the whole code 
status PN. _severity] = Sts$k warning; i Force status to warning 
-status2 ' Value of block is new code 
END 
$success_stat (status) 
= 
BEGIN 
BIND 
status2 = status : BLOCK (4, BYTE); 
evetuss aT aoe “severity! = sts$k Success: ! Force status to success 
getacued ! Value of block is new code 


$Ssuccess_stat_copy (status) 
= 


BEGIN 
LOCAL 
statuse sBLOsK. (4, BYTE); 
evocuss f° = status; ' Copy the whole code 
status ak _severity] = $ts$k success; i Force status to success 


.Status2 ! Value of block is new code 
END 
$Serror_stat (status) 
= 
BEGIN 
BIND 
status2 = status : BLOCK (4, BYTE]; 
status2 Csts$v_severity] = sts$k_error; ! Force status to error 
.Status2 ! Value of block is new code 
END 
z, 
Serror_stat_copy (status) 


BEGIN 
LOCAL 
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statusg “to, eS wey 


statuse [sts$v _severity : *StsSk_error: 
gozetusd 


Sinfo_stat (status) 
= 


BEGIN 
BIND 

etatyed = status : BLOCK (4, BYTE); 
statuse [sts$v_severity] = sts$k _info; 
getatuse 


Sinfo_stat_copy (status) 


Stetyae BLOCK (4, BYTE; 
status Is 32, 0] = statu 
status tebe _severity) = *ets$k info; 
gatotued 


$severe_stat (status) 
ar cin 
Status2 = status : BLOCK (4, BYTE); 
status2 (sts$v severity! = sts$k Severe; | 
petetuss 


$Ssevere_stat_copy (status) 


st ope Ca, BYTE); 
statusg. toto, 0,3 tus; 
statuse (sts$v ratte = $ts$k severe; 


-status 
END 
Special debug and trace macros 


MACRO 
$dbgtrc_prefix (string) 


N 
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Copy the whole code 


' Force status to error 
! Value of block is new code 


' Force status to info 
! Value of block is new code 


Copy the whole code 
Force status to info 


' Value of block is new code 


' Force status to severe 


! value of block is new code 


' Copy the whole code. 
' Force status to se 
' Value of block is ot we 


! Declare a nested macro with the value of the string 
MACRO $dbgtrc_prefix_string = string ZQUOTE % 
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Scheck_call (level, routine_addr) 
= 


16-SEP-1984 


ZIF switch variant GEQ (level) 
ZTHEN 


BEGIN 
EXTERNAL ROUTINE routine 
rout ine_eddr (ZREMAININGY 
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addr : ADDRESSING_MODE (GENERAL); 


! Call the routine depending on variant level 


?| 
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; Message print routines 


ACRO 
Sprint_lit (string) 
= 
| oSput output (ZASCID string) 


$Strace_print_lit (string) 
= 
RIF switch trace 
THEN 


Me oeut "+ alate (ZASCID ZSTRING (S$dbgtrc_prefix_string, string)) 
sl ! switch t 


$debug_print_lit (string) 
= 
Bit ewitch. debug 
Lib$Sput_output (ZASCID ZSTRING (Sdbgtrc_prefix_string, string)) 
thd ! switch debug - eth . . 
Sprint_desc (desc) 
4 FOS put output (desc) 


$trace_print_desc (desc) 
ZIF switch_trace 
ZTHEN GIN 
TERNAL ROUTINE exch$util_fao_buffer; 
b$put_output 
ae exch$util_fao_buffer (ZASCID XSTRING ($dbgtrc_prefix_string, "!AS'), desc)) 
ho ! switch_trace 


BE 
EX 
li 


$debug_print_desc (desc) 

= 
ZIF switch debug 
ZTHEN 

BEGIN 

EXTERNAL ROUTING exch$util_fao_buffer; 

Lib$put BUT ta 

exch$util_fao_buffer (ZASCID ZSTRING ($dbgtrc_prefix_string, *!AS"), desc)); 

hale : sltah debug 


Sprint_fao (string) 


= 
BEGIN 


. 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
4 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
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gh nergy ROUTINE exch$util_fao_buffer; 
LibSput_output ( 
exch$util_ fao_buffer (ZASCID strin 

ZIF ZCENGTH GTR 1 XTHEN ,ZREMAINING %FI)) 


$trace_print_fao (string) 
aa 
ZIF switch trace 
XTHEN 


BEGIN 
EXTERNAL ROUTINE exch$util_fao_buffer; 
LibSput output ( 
exch$util fao_buffer (ZASCID ZSTRING Csdbgere prefix string. string) 
ZIF XCENGTH GTR 1 XTHEN ,ZREMAINING %FI)) 


ND 
vi ! switch _trace 


S$Sdebug_print_fao (string) 
= 
ZIF switch debug 
ZTHEN 


| 
BEGIN 
EXTERNAL ROUTINE exch$util_fao_buf fer; 
LibSput_output ( 
exch$util_fao_buffer (ZASCID ZSTRING (Sdbgtrc prefix_string, string) 
ZIF ZCENGTH GTR 1 XTHEN ,ZREMAINING %FI)) 
i 


. 7 
i ! switch_debug 
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H Macros to manipulate queues 
MACRO 
4 Initialize the header of a queue. This means make each of the 2 pointers in the header point to the header. 
Squeve_initialize (q_header) 
BEGIN 


BIND 
_ah_ = (q_header) : VECTOR (2, LONG); 


h_ (0) = _qh; 
“tt: HY: -$ 
iad 
Insert an element at the head of a queue. 
Squeue_insert_head (item, q_header) 
= 


BEGIN 


BUILTIN 
INSQUE ; 


_ah_ = (q_header) : VECTOR (2, LONG); 
INSQUE (Citem), _qh_ (0]) 
mg 
: Insert an element at the tail of a queue. 
Squeue_insert_tail (item, q_header) 
BEGIN 


BUILTIN 
ee 


ah_ = (q_header) : VECTOR (2, LONG); 
INSQUE (Citem), «qh. (1)) 


END 
i, 
‘+ 


' Remove the indicated element from a queue. The first parameter is the address of the element. The second 
; parameter is optional. 


i If supplied, it is the address of a longuord in which to store the element removed from the queue or 0 if 
' no element was present in the queue. The value of the expression is TRUE is a element was removed from the 


F 
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: queue and FALSE otherwise. 


i 1f the second parameter is not supplied, the value of the expression is the address of the element removed 
: from the queue or 0 if no element was present in the queue. 


Squeue_remove (q_element, element) 
= 
BEGIN 


head_ = (q element) : VECTOR (2, LONG]; 
REMQUE; 
A aan (element)) 
LOCAL 
1. : REF VECTOR (2, LONG); 
ZELSE 


_ TL = (element) : REF VECTOR (C2, LONG); 


IF (REMQUE (_qhead_, _T_)) 
THE 
BEGIN 
: queue was empty 
if (ZNULL (element)) 
THEN 


eLse 

END 
ELSE 

BEGIN 


IF (ZNULL (element)) 
THEN 


_T_ = 0; FALSE) 


ELSE 


true 
END 


'¢ ‘ 
' Remove an element from the head of a queue. The first parameter is the address of the queve header. The 
' second parameter is optional. 


If supplied, it is the address of a Longuord in which to store the element removed from the queue or 0 if 
no element was present in the queue. The value of the expression is TRUE is a element was removed from the 
queue and FALSE otherwise. 


If the second parameter is not supplied, the velue of the expression is the address of the element removed 
from the queue or 0 if no element was present in the queue. 
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te 
Squeuve_remove_head (q_header, element) 
= 
BEGIN 


BIND 
-ah_ = (q header) : VECTOR (2, LONG); 


ZIF (CRZNULL (element)) 
XZ THEN 


$Squeve_remove (._qh_ ([0]) 
ZEL 


tFI 
END 
4 


S$ 
lesen seoes (..qh_ (OJ, element) 


+ 


Remove an element from the tail of a queve. The first parameter is the address of the queve header. The 
second parameter is optional. 


! 

i 

i 

i 

! If supplied, it is the address of a longword in which to store the element removed from the queue or 0 if 

! no element was present in the queve. The value of the expression is TRUE is a element was removed from the 
: queue and FALSE otherwise. 

i If the second parameter is not supplied, the value of the expression is the address of the element removed 
from the queue or 0 if no element was present in the queue. 


Squeve_remove_tail (q_header, element) 
= 
BEGIN 


BIND 
_ah_ = (q_header) : VECTOR (2, LONG); 


ZIF (ZNULL (element)) 
ZTHEN 
Squeue_remove (._gh_ (1]) 

ZELSE 
_ Squeve_remove (._qh_ [1], element) 
END 
z, 
: Test a queue for emptiness. TRUE if the queue is empty, FALSE if the queue is not empty 
Squeue_empty (q_header) 

= 

BEGIN 


BIND 
_ah_ = (q_header) : VECTOR (2, LONG); 


ah_ EQLA ._qh_ (0) 
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iD 


16-SEP-1984 16:59:35.13 Page 17 


EXCLIB.B32;1 16-SEP-1984 16:59:35.13 Page 18 


: Literal definitions: 


define Literals for BLISS true and false values 


LITERAL 
true = 
false = Y 


Define values of some ASCII characters 


LITERAL 
NUL = 0 ' null 
LF. = 16, i Line feed 
vt =11, ' vertical tab 
FF = \¢- ! form feed 
cR =1 ' carriage return 
CTRLZ = 26, ' contro 
ESC = 27 ! escape 
DEL = 12? ' rubout 


Define the Racix-50 equivalents for FILE.BAD 


CIvER 
Reb -EMPTY = ZRADSO_11 ‘EMPTY ', 
RSO-FIL = ZRADSO-11 ‘FIL', 
R50 FILE = “ax *1F4026F4', 

“BAD 2x OCAC 
R50_ SYS = %X '7ABB' 


Lonquerd EMPTY "" 
word ‘‘FIL" ee 
Lonewnrs FILE 
word "'BAD"' 

word ‘’SYS' 


' 
Linkage definitions: 


LINKAGE 
jsb_rOrl = JSB (REGISTER=0 ayRESisTER=i =1) 
ISTE 3,4,5,6,7,8,9,10,11), 


NOPRE 

jsb_rOrir2 = JSB cnéghsTER= neater REGISTER 
NOTUSED(3,4,5,6,7,8,9,10,11), 

jsb_ri = JSB cnéghstER=1) 


ESERVE NOTUSED(2,3,4,5,6,7,8.9,10,11), 
jsb.rir2 = JSB (REGISTERS Re sels tER=2) 
NOPRESERVE 1,2) NOTUSED(3,4,5,6,7,8,9,10,11), 
jsb_rir2r3 = JSB (REGISTER= teal ht REGISTER=35 
NOPRES zn 1 NOTUSED(4,5,6,7,8,9,10,11), 
jsb_r2r3. = ‘JSB (REGISTER® eal 
5 NOTUSED(4,5,6,7,8,9,10,11), 


jsb.r3r6 = JSB cnéchsTEnes bagi 
m> d liQTUseD(5,6.7,8.9.10,11), 


enone — pe wnt £5, at ea NOTUSED(8,9,10,11), 
jsb_put = JSB cnéghsTEn= sical HEA 19 ={o5'° 


23.4,5.6,7,8,9,10) NOTUSED(11) 
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H Run-time Library and other routines external to the facility 
EXTERNAL ROUTINE 


j ¢\ parse : ADDRESSING_MODE (GENERAL), ! Command parsing routine 
cli$dispatch : ADDRESSING_MODE (GENERAL), ! Action routine dispatch 
cli$get_value : ADDRESSING_MODE (GENERAL), ! Entity value fetch 
cli$present : ADDRESSING_MODE (GENERAL), ! Entity Bresence oolean 
LibSfind_file : ADDRESSING_MODE (GENERAL), ! Wildcar co processing 
LibSfree_vm : ADDRESSING_MODE (GENERAL), ! Releases memo 
Libsget_ Tnput : ADDRESSING_MODE (GENERAL), ! Get a Line tron SYSSINPUT 
Lib$get_vm : ADDRESSING_MODE (GENERAL), ! Gets memor 
L{bSput output: MOORE S8 | NE _MODE (GENERAL), ! Display a Line on SYSSOUTPUT 
ots$cvt_ti_ DDRESSING_MODE (GENERAL), ! ASCII hoc imal to Lonquere 
ots$cvt_to_l ADDRESSING_MODE (GENERAL), ! ASCII octal to sw 
ots$cvt_tz_l : ADDRESSING_MODE (GENERAL), ! ASCII hexadecimal ° Semana 
str$copy dx : ADDRESSING_MODE (GENERAL), ! Copy string of any class 
strStreeT dx +: ADDRESSING_MODE (GENERAL) ! Release dynamic string 


: Define the lengths of control blocks here = Many of these need to be adjusted by system block sizes, so it 
can't be completely done in the SDL definition. 


LITERAL 
: An SEXCG is the global environment for the facility, the SDL block plus two RMS work areas 
exchblk$s_excg = excg$k_length + 2*(fab$k_bln + rab$k_bln + nam$k_bln + (2*nam$c_maxrss)), 

H An $RMSB describes an RMS file, the SDi block plus one RMS work area 

exchblk$s_rmsb = rmsb$k_length + fabSk_bln + rab$k_bln + nam$k_bln + (2*nam$c_maxrss), 

} A $VOLB contains the structures for a volume, the SDL block plus one RMS work area 

exchblk$s_volb = volb$k_length + fab$k_bln + rab$k_bln + nam$k_bln + (2*nam$c_maxrss), 

The following don't need adjusting, but we want to keep all the EXCHBLK$S_ definitions in one place 
cuenbiagscatry. = Ghzak- Length: 


exchblk$s =90s]! ra dosiiSk ruengén 
exchblk$s_doslictx = dosiTctx$k _lungth, 


' Size of the work area for the COPY command 
' Size of the work area for the DIRECTORY command 
! Size of the DOS- "1 1 sepet tte ewtong ten to the volb 


' 

' 

! Size of the DOS-11 file context bloc 
exchblk$s_filb = filb$k_length, ' A SFILB is a = which des ~ an open file 
exchblk$s_ wats = init$k ~pength. ! Size of the work area for the INIT comman 
exchblk$s_namb = namb$k_length, ! A $NAMB is a structure waten stores a fully parsed file name 
exchblk$s_ “nOyn = moun$k_ Len ngth. ! Size of the work area for the MOUNT command 
exchblk$s_rtll = rt11$k- Longer ! Size of the RT- =} 1 sere *tic vextens ion to the volb 
exchblk$s_rtlictx = rtlTctxdk length, ! Size of the RT-11 file context block 
exchbLk$s_ “rtnam = rtnam$k_length ! Size of the work area for the DIRECTORY command 
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H Message codes defined in SRCS:EXCMSG.MSG 


EXTERNAL LITERAL 
exch$_accessfail, 


exch$_ “badfilename, 
exchs. =ped os ha 
exch$_badpa 

exch$_ “binchksum, 
exch$_binrecfmt, 
exch$_blockcheck 
exch$ “plockcheckO, 
exch$_canceled, 
exch$_closeerr, 
exch$_closeforeign, 
exch$_copied, 
exch$_ “copyboot, 
exch$_copnewname, 
exch$_createvirt, 
exch$_deleted, 
exch$_ “deleteprev, 
exch$_devonly, 
exch$_devnotsuit, 
exch$_dire_error, 
exch$_dismounted, 
exch$_dos11 SS esUtet. 
exch$_dos11_blocksize, 
exch$_dos11_ioerror, 
exch$_ ~Gos11 “position, 
exch$_filenot found, 
exch$_filll_norec, 
exch$_ignoré_dire, 
exch$_ignore_vers, 
exchs. i Latcopy 
exch$_initial zed, 
exch$_invrecfmt, 
exch$_invvol fat, 
exch$_many_to_one, 
exch$_mounted, 
exch$_ “mounterror, 
exch$_mountvir, 
exch$_noalloc, 
exch$_ =nocerrege. 
exch$_nocopba 

exch$_ “nocopbaddel, 
exch$_nocopdup 

exch$ “noceplock 
exch$ “nocopnodel , 


exch$ =nocopy te. 
exch$_nodellock, 
exch$_nodevice, 
exch$_noremote, 
exch$_norendev, 
exch$_norenexists, 


failed to access uN@ for ($GETDVI service failure) 
File name -— a. for given volume 
Adds error shared message 


! Improper 7RECORD., FORMAT SPAD option 
' Bad formatted binary record 

' Bad formatted binary record 

' Block check fa 


led 
Block check failed because block address is 0 


Error cos ing ities device 

Log message for copy command 

Log message for copy /boot command 

File copied with new name 

Error creating virial volume 

Deleted copy of a 

Deleted provieye copy of 

Device spec only er sacks ¥? file name ignored 
Device is not suftable for EXCHANGE 

Error writing directory 

Dev vice has ore dismounted 

Invalid Label found on dos11 tap 

Invalid block (>512 bytes) found on dos11 tape 
Error during 1/0 on dosi1 tape 

Rewinding tape to find correct position 

Unable se locate file 

No /RECORD for files-11 

ignoring directory specification 

Ignoring file version number 

I Legal magtape copy input and output on same device 
Device has been initialized 

Record format not bbe tor volume type 

Volume format not valid for operation 

Multiple input files were given but enty one output file 


Volume mounted (success 
Error performing VMS $mount service 
Virtual volume mounted (success) 


/ALLOCATE ignored on Sape qutput 
/ CARRIAGE ignored ga. out utput 
Couldn't create, file with wildcarded names 
Couldn't create, ieee to delete .BAD file 

Couldn't create, already created same name 

Couldn't create, v pune is writelocked 

Couldn't create, file of same name and /NODELETE given 

Couldn't create, file of eens mame protected against modification 
Illegal copy to same dev 


Illegal co -SYS when” existing SYS present 
Unable to “oY boot info 
File nat deleted Selune locked 


Device spec missing 

Device spec cannot have node field 
Illegal rename to qi trerent device 
Not renamed, already exits 
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exch$_norenlock, 
exchenosysact. 
exch$_notcopied, 
exch$_notcop_retry, 
exch$ notdeleted, 

'\ exch$_notimplement, 
exch$_notmounted, 
exch$_notsamedev, 
exch$_notvallen, 
exch$_novolumes, 
exch$_openforeign, 
exch$_openvirtual, 
exch$_opnotperdos, 
exch$_opnotperf11 

'\ exch$_opnotperrti1, 

‘XN exch$_opnotperrtmt, 
exch$_parseerr, 
exch$_partcopied, 
exch$_readcheck, 
exch$_readcheckrec, 
exch$_reacderrrec, 
exch$_recover 
exch$_rectoobig, 
exch$_renamed, 
exch$_rtil_baddirect, 
exch$_rtil_badfile 
exch$_rt11_bigbadfile, 
‘exch$_rtli_dirsize, 
exch$_rtil_errlock, 
exch$_rtil_extra, 
exch$_rti1_noend 
exch$_rti1_over flow, 
exch$_rtil_stblock, 
exch$_rti1_toomanyblk, 
exch$_rti1_toomanyseg, 
exch$_rtil_unkent, 
exch$_rtouteof, 
exch$_rtprotect, 
exch$_stmrecfmt 
exch$_stnotavail 
exch$_strtnomulti, 
exch$_toomanycol, 
exch$_trace, 
exch$_typed. 
exch$_virtnochange, 
exch$_vmsmount, 
exch$_volmount, 
exch$_volume_full, 
exch$_waiterr, 
exch$_writecache, 

exch$_writecheck, 

exch$_writecheckrec, 
exch$_writeerrrec, 
exch$_writelock 
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ee eee 


Files not renamed, volume locked 
No action on .SYS tiles 


! Feature not yet implemented 
Device is not mounted on EXCHANGE 
Input and output not same device (copy /boot) 
/REC=LEN requires FIXED 
No volumes are mounte 


F 
Operation not permitted on RT-11 volume (not yet needed) 
Operation not permitted on RT-11 magtape volume 
Bad file parameter syntax 
File partially copied 
Error detected during read check 
Error detected during read check was recovered 
Error detected during read was recovered 
Directory recovery message 
Bad formatted binary record 
ile renamed log message 
RT-11 directory error 
Bad piece file created 
Bad biock file contains some good blocks 
Device size disagrees with directory size 


Too pany extra words 
-11 directory error 
-11 directory error 
-11 directory error 
-11 directory error 

-11 directory error 

directory error 

f file on output file 

protected against modification 

tream record format 

Start block not available 

Can't say /START with multiple input files 

Too aeny columns requested 

Header for a status trace 

Log message for type command 

Cannot change size of virtual devices 

Volume has been mounted on VMS 

Volume is already mounted 

Output volume is full 

Error waiting for RMS operation 

gricine modified directory segments 

Error detected during write check 

Error detected during write check was recovered 
Error Corected during write was recovered 
Volume is write-locked 


Ou mrmDwDwDwDzDwzD 


a-a 


T 
T-11 
T-11 
T-11 
T-11 
T-11 
nd o 
i 

ad s 
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: Shared message definitions 


$shr_msgdef 
Texch 
' (6 


248, local, 
adlogic, warning), 
(badvalue, warning), 
(closeout, warning), 
( entquete warning) 
Cinsvirmem, warning), 
(openin, warning) 
(openout, warning), 
pregeere. warning) 
(writeerr, warnings 


Using private message so can add error number 


); 


Sshr_msgdef 
Tmsg, 3, local, 
(syntax, severe) 


Message from CLI that syntax error occurred 


Other symbols which need explicit declarations 


EXTERNAL LITERAL 
c ! Parameter ended with a comma 

! Parameter ended with a plus sign 

! An explicit /NOqual for local qual 

! An explicit /qual for local qual 

' CLI saw a blank Line and burped 

! An explicit /NOqual was given 

! An explicit /qual was given 


o 
co 
—_ 
wr 
oo 
°o 
o 
a] 
7 
® 
y" 
oe 


cli$ present . 


cli$_facility: ' CLI facility code 
Storage external to all modules 
EXTERNAL 
exch$cld_table : ADDRESSING_MODE (LONG_RELATIVE) ! Command table for CLISDCL_PARSE 


External data - defined in EXCHSMAIN module 
EXTERNAL 


exch$gq_dyn_str_template : S$desc_block ADDRESSING_MODE (LONG RELATIVE), ! An initialized, null dynamic string descriptor 
exch$a_gbl ©: REF BLOCK C,BYTE] ADDRESSING_MODE (CONG_RELATIVE) ! The pointer to the known world 
! END ! End of module EXCLIB 


' ELUDOM 
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